home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / gatekp.zip / GATETEST.PAS < prev   
Pascal/Delphi Source File  |  1993-01-04  |  691b  |  30 lines
  1. program gatetest;
  2.  
  3. uses crt,win,gatekpr2;
  4.  
  5.  
  6. var
  7.   yo: CHAR;
  8.   YourPassWord :PassString;
  9.  
  10.  
  11.  
  12. begin
  13. ClrScr;
  14. Write('What is your password (10 Letters Max) ?  ');
  15. ReadLn(YourPassWord);
  16. Writeln(' ');
  17. YourPassword := Encode(YourPassWord);
  18. Writeln('Encoded your password looks like this -> ',YourPassWord);
  19. YourPassWord := Decode(YourPassWord);
  20. Writeln('Decoded your password looks like this -> ',YourPassWord);
  21. Writeln(' ');
  22. Writeln('Hit any key when you''re tired of looking at this');
  23. yo := Readkey;
  24. Window(1,1,80,25);
  25. FillWin(#178, LightGray + Black * 16);
  26. Gate_Keeper(YourPassWord);
  27. Writeln('Okay, the demo''s over now, you can hit any key!');
  28. yo := ReadKey;
  29.  
  30. end.